100 IFLTHEN420
110 POKE53281,0:POKE53280,0:PRINT"[147][158]";
120 C$="12121515010115151212":CC=-1
130 FORI=1TO12:PRINT"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT
140 FORI=1TO12:PRINT"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:NEXT
150 PRINT"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
160 POKE2023,PEEK(1083):POKE56295,PEEK(56255)
170 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
180 POKE214,5:PRINT:FORI=1TO10:PRINTTAB(4)"[221][152]                              [146][158][221]"
190 NEXT:POKE214,6:POKE211,4:SYS58732
200 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
210 PRINTTAB(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
220 POKE214,16:POKE211,4:SYS58732
230 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
240 PRINTTAB(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":POKE214,8:PRINT
250 A$="[195][160][193][160][196][160]-[160][205]":GOSUB310
260 A$="BY [205]IKE [205]ILROY":GOSUB310
270 A$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#[160]64":GOSUB310
280 A$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":GOSUB310
290 A$="([195]) 1989 [205]IKE [205]ILROY":GOSUB310
300 GOTO320
310 PRINTSPC(20-LEN(A$)/2)"[152]"A$:RETURN
320 POKE214,18:SYS58732:FORI=1TO6
330 PRINT"[152]                                      ":NEXT:PRINT""
340 POKE214,19:POKE211,4:SYS58732
350 PRINT"1. [204][207][193][196][160][195][193][196]-[205]
360 [153]"2. (null)(null)RIGHT$(null)(null)CLOSELENATNSTR$-(null) (null)ATN(null)(null)ATN(null)
370 PRINT"3. [198][201][206][196][160][207][213][212][160][193][194][207][213][212][160][197][206][200][193][206][195][197][196] [195][193][196]-[205]
380 [153]"4. (null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)(null)ATNSTR$(null)(null)ATN(null)
390 PRINT""
400 GETA$:IFA$<"1"ORA$>"4"THEN400
410 ONVAL(A$)GOTO420,880,750,900
420 REM"[211]=SAVE"@0:CAD-M V.2 LOADER",8
430 [143] THIS PROG LOADS THE 3 FILES OF CAD-M, AND JUMPS TO START CAD-M AFTER
440 [143] SETTING THE FOLLOWING:
450 MS[178]12288:[143] MEMSIZ=$3000 (JUST CHANGE THIS VAL FOR DIFFERENT VERSIONS)
460 [143] ---------------------
470 [145] L [137]530,550,670:[143] BECAUSE EACH LOAD CAUSES PROG TO RESTART
480 L[178]1
490 [139] [194](777)[178]167[167][137]510:[143] IGONE=DEF VAL
500 [153]"LOADSHUT OFF COMPUTER (TO RESET) BEFORE     RUNNING THIS PROGRAM":[144]
510 [153]
520 [147]"CO2R",8,1
530 L[178]L[170]1 :[143] DO THIS JUST AFTER A LOAD
540 [147]"CO2Z",8,1
550 L[178]L[170]1 :[143] DO THIS JUST AFTER A LOAD
560 [143] THE FOLLOWING LOADS "CO2P"
570 A$[178]"CO2P":[143] NAME OF FILE TO BE LOADED
580 [129]N[178]1 [164] [195](A$)
590 [151] 820[170](N[171]1),[198]([202](A$,N,1)):[130]
600 A[178]780:[143] .A REG
610 X[178]781
620 Y[178]782
630 P[178]783
640 [151] A,1:[151]X,8:[151]Y,0:[158]65466:[143] SETLFS
650 [151] A,[195](A$):[151]X,820[175]255:[151]Y,820[173]256:[158]65469:[143] SETNAM
660 [151] A,0:[151]X,0:[151]Y,224:[158]65493:[143] LOAD AT $E000
670 L[178]L[170]1
680 [151] 55,MS[175]255:[151]56,MS[173]255:[143] SET MEMSIZ
690 [153]"LOADNEW
700 PRINT"":REM CURSOR DOWN
710 PRINT"SYS38656":REM SYS$9700
720 PRINT"";:REM HOME
730 FORN=0TO1
740 POKE631+N,13:NEXT:POKE198,N:END
750 POKE214,18:SYS58732:FORI=1TO6
760 PRINT"[152]                                      ":NEXT:PRINT""
770 POKE214,19:POKE211,4:SYS58732
780 PRINT"[193]N ENHANCED VERSION OF [195][193][196]-[205],
790 [153]"WHICH INCLUDES LEN(null)(null)(null)(null)CLOSEASCRIGHT$(null)(null)(null) AND
800 PRINT"[200][201][196][196][197][206] [211][213][210][198][193][195][197][160][210][197][205][207][214][193][204] IS AVAILABLE."
810 PRINT"[198]OR DETAILS, RUN '[197][206][200][193][206][195][197][196][160][196][197][205][207]'."
820 GETA$:GOSUB850:IFA$<>"Y"ANDA$<>"N"THEN820
830 IFA$="N"THEN320
840 A$="ENHANCED DEMO":GOTO910
850 CC=CC+2:IFCC>20THENCC=1
860 POKE214,23:POKE211,10:SYS58732:POKE646,VAL(MID$(C$,CC,2))
870 PRINT" [210]UN THE DEMO?  ([217]/[206]) [145]":RETURN
880 A$="MANUAL MAKER":GOTO910
890 STOP
900 A$="HELLO CONNECT":GOTO910
910 OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
920 IF ER<>63 THEN PRINT"[147]":END
930 :Q$=CHR$(34):PRINT"[144][147]"
940 PRINT"LOAD"Q$A$Q$",8"
950 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END